object MerkezArizaKabulF: TMerkezArizaKabulF
  Tag = 5
  Left = 116
  Top = 138
  Width = 902
  Height = 480
  Caption = 'B'#246'lgeden Gelen Ar'#305'zal'#305'lar'#305' Kabul Et'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 41
    Width = 894
    Height = 374
    DisableThemes = False
    ControlType.Strings = (
      'selected;CheckBox;True;False')
    Selected.Strings = (
      'selected'#9'3'#9'Se'#231#9#9
      'GitTarih'#9'10'#9'G'#246'n.Tarih'#9#9
      'formno'#9'10'#9'D.T.FormNo'#9#9
      'serino'#9'20'#9'Seri No'#9#9
      'stokkodu'#9'25'#9'Stok Kodu'#9'F'
      'grubu'#9'18'#9'Grubu'#9'F'
      'garantidurumu'#9'5'#9'G.D.'#9#9
      'bildirilenariza'#9'150'#9'Bildirilen Ar'#305'za'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = ArizaKabulQS
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = TURKISH_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = True
    UseTFields = False
    OnTitleButtonClick = wwDBGrid1TitleButtonClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 894
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label7: TLabel
      Left = 7
      Top = 14
      Width = 45
      Height = 14
      Caption = 'B'#246'lge Ad'#305
    end
    object Label1: TLabel
      Left = 608
      Top = 14
      Width = 83
      Height = 14
      Caption = 'Onay Kabul Eden'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 191
      Top = 14
      Width = 29
      Height = 14
      Caption = 'Kargo'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 313
      Top = 14
      Width = 51
      Height = 14
      Caption = 'Kargo Tak.'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 461
      Top = 14
      Width = 46
      Height = 14
      Caption = 'G'#246'n.Tarih'
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Subeadik: TwwDBLookupCombo
      Left = 59
      Top = 10
      Width = 128
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'subekodu'#9'20'#9#350'ube Ad'#305#9'F')
      LookupTable = dm.TumSubelerQ
      LookupField = 'id'
      Options = [loColLines, loTitles]
      Color = clWhite
      Navigator = False
      ParentFont = False
      TabOrder = 0
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
      OnChange = SubeadikChange
    end
    object personelk: TwwDBLookupCombo
      Left = 698
      Top = 10
      Width = 129
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'pismi'#9'25'#9'pismi'#9'F'
        'pkodu'#9'5'#9'pkodu'#9'F')
      LookupTable = dm.sppersonel
      LookupField = 'PerKod'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Color = clWhite
      Navigator = False
      ParentFont = False
      TabOrder = 1
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
    end
    object kargok: TwwDBLookupCombo
      Left = 222
      Top = 10
      Width = 89
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      DisableThemes = False
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        'KarAdi'#9'20'#9'KarAdi'#9'F')
      LookupTable = dm.qKargo
      LookupField = 'karkod'
      Options = [loColLines, loTitles]
      Style = csDropDownList
      Navigator = False
      ParentFont = False
      TabOrder = 2
      AutoDropDown = True
      ShowButton = True
      UseTFields = False
      AllowClearKey = True
      ShowMatchText = True
    end
    object kargotakipnok: TwwDBEdit
      Left = 369
      Top = 10
      Width = 89
      Height = 22
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object GonTark: TwwDBDateTimePicker
      Left = 517
      Top = 10
      Width = 89
      Height = 22
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      Epoch = 1950
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      ShowButton = True
      TabOrder = 4
      DisplayFormat = 'dd.mm.yyyy'
    end
    object RB_pesin: TRadioButton
      Left = 845
      Top = 3
      Width = 36
      Height = 17
      Caption = 'P'#214
      Checked = True
      TabOrder = 5
      TabStop = True
    end
    object RB_ucret: TRadioButton
      Left = 845
      Top = 19
      Width = 36
      Height = 17
      Caption = #220'A'
      TabOrder = 6
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 415
    Width = 894
    Height = 38
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      894
      38)
    object bkapat: TBitBtn
      Left = 809
      Top = 6
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Kapat'
      TabOrder = 0
      OnClick = bkapatClick
    end
    object byenile: TBitBtn
      Left = 192
      Top = 6
      Width = 95
      Height = 30
      Caption = 'Yenile'
      TabOrder = 1
      OnClick = byenileClick
    end
    object btumunusec: TBitBtn
      Left = 103
      Top = 6
      Width = 79
      Height = 30
      Caption = 'T'#252'm'#252'n'#252' Se'#231
      TabOrder = 2
      OnClick = btumunusecClick
    end
    object bkabulet: TBitBtn
      Left = 8
      Top = 6
      Width = 85
      Height = 30
      Caption = 'Kabul Et'
      TabOrder = 3
      OnClick = bkabuletClick
    end
  end
  object ArizaKabulQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'subeid'
        DataType = ftString
        Size = 1
        Value = '2'
      end>
    SQL.Strings = (
      
        'select *,stokkodu=dbo.getstokkodu(stokkod),bildirilenariza=(sele' +
        'ct bildirilenariza from teknik where teknik.formno=distakip.tekf' +
        'ormno),'
      
        'stokkodteknik=(select stokkod from teknik where teknik.formno=di' +
        'stakip.tekformno),'
      
        'Aksesuar=(select Aksesuar from teknik where teknik.formno=distak' +
        'ip.tekformno),'
      
        'grubu=(select isim from stgrupTanim where stgrupTanim.id=(select' +
        ' grupId from stok where stok.stokkod=distakip.stokkod)),'
      
        'UstTipi=(select UstTipi from teknik where teknik.formno=distakip' +
        '.tekformno)'
      'from distakip '
      'where carikod=5114'
      
        'and (select subeid from teknik where teknik.formno=distakip.tekf' +
        'ormno)=:subeid and durumu='#39'G'#39
      'order by gittarih,stokkodu')
    Left = 408
    Top = 160
  end
  object ArizaKabulQS: TDataSource
    DataSet = ArizaKabulQ
    Left = 376
    Top = 160
  end
  object TipiQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'stokkod'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select bolumkodu TKodu  From stGruphar,Stok'
      
        'Where GrupTanimid=Stok.GrupId and UstGrupid=(Select id From stUs' +
        'tGruphar Where UstGrupTanimid=Stok.UstGrupId)'
      'and Stok.Stokkod=:Stokkod')
    Left = 616
    Top = 64
  end
  object Onarim: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Onarim where onarimno is null')
    Left = 576
    Top = 64
  end
  object Teknik: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Teknik where formno is null')
    Left = 520
    Top = 80
  end
  object DistakipUpdateQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'baglidistakipformno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update distakip'
      'set baglidistakipformno=:baglidistakipformno,durumu='#39'X'#39
      'where formno=:formno')
    Left = 616
    Top = 112
  end
  object BulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'baglidistakipformno'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'formno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update distakip'
      'set baglidistakipformno=:baglidistakipformno,durumu='#39'X'#39
      'where formno=:formno')
    Left = 616
    Top = 144
  end
  object Onarim_merkezegonderildiQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'onarimno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update onarim'
      'set merkezegonderildi=1'
      'where onarimno=:onarimno'
      '')
    Left = 616
    Top = 224
  end
  object SatisTarihBulQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select satistarihi=(select tarih from fatura where fatura.bilisn' +
        'o=fatharhar.bilisnocik) from fatharhar'
      'where serinos=:serino')
    Left = 362
    Top = 360
  end
  object GelisSayisiQ: TADOQuery
    Connection = dm.connect
    Parameters = <
      item
        Name = 'serino1'
        Size = -1
        Value = Null
      end
      item
        Name = 'serino2'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'Select count(*) as gelissayisi from teknik '
      
        'where serino=:serino1 and bolgedistakipformno is null and formno' +
        '>'
      '('
      'select isnull(MAX(formno),0) from parcaonay'
      'where serino=:serino2'
      ')')
    Left = 281
    Top = 360
  end
  object OdaCalisanQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select * from p_tekniktipi_calisan'
      'where tkodu=1 order by perkod')
    Left = 440
    Top = 360
  end
  object OdaPersonelSayiQ: TADOQuery
    Connection = dm.connect
    Parameters = <>
    SQL.Strings = (
      'select atananpersonel,count(*) as sayi from teknik'
      
        'where durumu='#39'S'#39' and tipi=1 and atananpersonel is not null group' +
        ' by atananpersonel order by atananpersonel'
      '')
    Left = 525
    Top = 361
  end
  object Dsteknik: TDataSource
    DataSet = Teknik
    Left = 520
    Top = 128
  end
end
